<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/conn.asp"-->
<%
Dim i,Rs,Sql,Table,Column,Bool,cmd,dt
Table = "yb"
sql="Select * From ["&Table&"]"
Set rss=conn.OpenSchema(4,Array(Empty,Empty,Table))
Response.Write rss.value
do   while   not   rss.eof
Response.Write(rss( "column_name").value   &   "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "   )
Response.Write(rss( "description ").value   & " <BR> ")
rss.moveNext
loop
rss.close()


	set rs = Server.CreateObject("ADODB.Recordset")
	Set rsf=rs.fields
	rs.open sql,conn,1,1


if not rs.eof Then
response.write ("<table><tr><td>name</td><td>type</td><td>ActualSize</td></tr>")
	for i=0 to rs.fields.count-1
		response.write ("<tr><td>"&rs.fields(i).name&"</td><td>"&rs.fields(i).type&"</td><td>"&rs.fields(i).ActualSize&"</td></tr>")
	next
response.write ("</table>")
end If
rs.close
Set rs=nothing
%>